home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Info-Mac 4
/
Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso
/
Development
/
Source
/
DBL Pascal Library
/
ErrSignal
/
TestSignals_2.p
< prev
next >
Wrap
Text File
|
1991-03-29
|
504b
|
34 lines
program main;
uses
ErrSignal;
procedure TestProc;
var
catch: Integer;
procedure SubProc;
begin
writeln('entering SubProc');
Signal(1);
end;
begin
writeln('entering TestProc');
InitSignals(sigFail);
catch := CatchSignal;
if catch <> 0 then
begin
writeln('handling signal');
SignalHandlerDone;
Exit(TestProc);
end;
writeln('catch established in TestProc');
SubProc;
end;
begin { main }
ShowText;
TestProc;
writeln('returned from TestProc');
end.